home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / os2 / fih111.zip / DEINSTAL.CMD < prev    next >
OS/2 REXX Batch file  |  1995-03-06  |  1KB  |  61 lines
  1. /* Icon Heaven de-installation script */
  2. /* (C)Copyright 1993-1995 by The Frobozz Magic Software Company */
  3. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. app = 'IHeaven'
  7. key = 'INSTDIR'
  8.  
  9. ini = value('USER_INI',,'OS2ENVIRONMENT')
  10. tDrive = left(ini,1)
  11.  
  12. '@echo off'
  13.  
  14. Call SysCls
  15.  
  16. say 'Icon Heaven installation utility version 1.10'
  17. say '(C)Copyright 1993-1995 by the Frobozz Magic Software Company'
  18. say ''
  19. /* check to see if Icon Heaven is installed */
  20.  
  21. res = SysIni(, app, key)
  22.  
  23. if res <> 'ERROR:' then do
  24.     instdir = res
  25.     call deinstall
  26.     exit
  27. end
  28.  
  29. say 'Icon Heaven was not found on your system, de-install aborted'
  30. exit
  31.  
  32. deinstall:
  33.  
  34. say 'Icon Heaven is installed in directory ['instdir']'
  35. say 'Do you wish to remove it? [N/y]'
  36. pull reply
  37. if left(reply, 1) = 'Y' then do
  38.     call SysDestroyObject "<FIM_ICONS>"
  39.     Call SysDeregisterObjectClass 'FIMTransIcon'
  40.     Call SysDeregisterObjectClass 'FIMFolder'
  41.     call SysFileTree instdir'\*', 'file.', 'FO'
  42.     'del 'instdir'\*.fim'
  43.     'del 'instdir'\fim.ico'
  44.     'del 'instdir'\fim.hlp'
  45.     'del 'instdir'\iconlib.exe'
  46.     'del 'instdir'\iconlib.ico'
  47.     'del 'instdir'\readme.1st'
  48.     'del 'instdir'\reinst.cmd'
  49.     'del 'instdir'\deinstal.cmd'
  50.     'del 'instdir'\deinstal.ico'
  51.     'del 'instdir'\replace.exe'
  52.     'del 'instdir'\fim.dll'
  53.     Call SysIni , app, key, 'DELETE:'
  54.     Call SysRmDir instdir
  55.     say 'Icon Heaven has been deleted from your system.'
  56. end
  57.  
  58. return
  59.  
  60.  
  61.